﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class LstpagosFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As LstpagosBE
        Dim tmpLstpagos As LstpagosBE = New LstpagosBE()
        Try
            With tmpLstpagos
                .Banco = convertDTFromDb.ConvertString(dr.Item("Banco"))
                .Beneficiario = convertDTFromDb.ConvertString(dr.Item("Beneficiario"))
                .Concepto = convertDTFromDb.ConvertString(dr.Item("Concepto"))
                .Conciliado = convertDTFromDb.ConvertString(dr.Item("Conciliado"))
                .Cuenta = convertDTFromDb.ConvertString(dr.Item("Cuenta"))
                .FAplica = convertDTFromDb.convertDateTime(dr.Item("FAplica"))
                .IdPago = convertDTFromDb.convertInt32(dr.Item("IdPago"))
                .ImporteP = convertDTFromDb.ConvertDecimal(dr.Item("ImporteP"))
                .NumCta = convertDTFromDb.ConvertString(dr.Item("NumCta"))
                .Obs = convertDTFromDb.ConvertString(dr.Item("Obs"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
                .Tipo = convertDTFromDb.ConvertString(dr.Item("Tipo"))
                .Tipo1 = convertDTFromDb.ConvertShort(dr.Item("Tipo1"))
                .Usr = convertDTFromDb.ConvertString(dr.Item("Usr"))
            End With
            Return tmpLstpagos
        Catch ex As Exception
            Throw
        Finally
            tmpLstpagos = Nothing
        End Try
    End Function
End Class
